home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / misc / edu / GeoW_Up2.lha / GeoWorld-Update2 / Install next >
Text File  |  1997-12-28  |  3KB  |  120 lines
  1. ;
  2. ; *** GeoWorld  V1.0   © by Beer Productions / 09 Jun 1997 ***
  3. ;
  4. ; $VER: GeoWorld - Update-Installer V1.0 (28.12.97)
  5.  
  6. ;Variablen
  7. (set #appname "GeoWorld")
  8.  
  9.  
  10. (set @default-dest
  11.   (askdir
  12.     (prompt "Wählen Sie das Verzeichnis Ihrer Festplatte, in dem sich die GeoWorld-Schublade befindet.\nChoose the directory where you have installed the GeoWorld directory\n")
  13.     (disk)
  14.     (help @askdir-help)
  15.     (default @default-dest)
  16.   )
  17. )
  18.  
  19.  
  20. (set @default-dest (tackon @default-dest "GeoWorld"))
  21. (set #destdir (cat "\"" @default-dest "/" "\""))
  22. (set #dir      (@default-dest ))
  23. ; (set #dokudir  (tackon @default-dest "Dokumentation/"))
  24. (set #linfdir  (tackon @default-dest "LInfo/"))
  25. (set #sinfdir  (tackon @default-dest "SInfo/"))
  26.  
  27.  
  28. (If (Not (Exists (tackon @default-dest "Keyfile")))
  29.   (message "Konnte Ihr Keyfile nicht finden.\nInstallation wird abgebrochen.\n\nI can't find your keyfile.\nThe installation will be aborted.")
  30. ;  (exit (quiet))
  31. )
  32.  
  33. (working " Installation der Länderinformations-Dateien ")
  34. (If (Exists (tackon @default-dest "Keyfile"))
  35.   (set a
  36.     (run ("C:lha x %s %s" "LBev.lha" #linfdir)
  37.     )
  38.   )
  39.   (if (<> a 0)
  40.     (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  41.   )
  42. )
  43.  
  44. (If (Exists (tackon @default-dest "Keyfile"))
  45.   (set a
  46.     (run ("C:lha x %s %s" "LGes.lha" #linfdir)
  47.     )
  48.   )
  49.   (if (<> a 0)
  50.     (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  51.   )
  52. )
  53.  
  54. (If (Exists (tackon @default-dest "Keyfile"))
  55.   (set a
  56.     (run ("C:lha x %s %s" "LNat.lha" #linfdir)
  57.     )
  58.   )
  59.   (if (<> a 0)
  60.     (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  61.   )
  62. )
  63.  
  64. (If (Exists (tackon @default-dest "Keyfile"))
  65.   (set a
  66.     (run ("C:lha x %s %s" "LPol.lha" #linfdir)
  67.     )
  68.   )
  69.   (if (<> a 0)
  70.     (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  71.   )
  72. )
  73.  
  74. (If (Exists (tackon @default-dest "Keyfile"))
  75.   (set a
  76.     (run ("C:lha x %s %s" "LWir.lha" #linfdir)
  77.     )
  78.   )
  79.   (if (<> a 0)
  80.     (message "Fehler beim Installieren des Länderinformationen-Archivs.\nError while installing the country information archive.")
  81.   )
  82. )
  83.  
  84. (copyfiles
  85.   (help "")
  86.   (SOURCE "SZ_Bevoelkerung")
  87.   (DEST #linfdir)
  88.   (optional nofail force askuser)
  89. )
  90.  
  91. (copyfiles
  92.   (help "")
  93.   (SOURCE "SZ_Natur")
  94.   (DEST #linfdir)
  95.   (optional nofail force askuser)
  96. )
  97.  
  98. (copyfiles
  99.   (help "")
  100.   (SOURCE "SZ_Politik")
  101.   (DEST #linfdir)
  102.   (optional nofail force askuser)
  103. )
  104.  
  105. (copyfiles
  106.   (help "")
  107.   (SOURCE "SZ_Sonstiges")
  108.   (DEST #linfdir)
  109.   (optional nofail force askuser)
  110. )
  111.  
  112. (copyfiles
  113.   (help "")
  114.   (SOURCE "SZ_Wirtschaft")
  115.   (DEST #sinfdir)
  116.   (optional nofail force askuser)
  117. )
  118.  
  119. (exit)
  120.